home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / biz / dbase / sqldb.lzh / sqldb / rexxmacros / sqltest.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-03-13  |  939 b   |  32 lines
  1. /* sqltest.rexx */
  2. options results
  3. address 'SQLserver'
  4. say 'Got Server'
  5. 'ExecSQL' "open table salesreps;"
  6. 'ExecSQL' "declare testcur cursor for select from salesreps;"
  7. 'ExecSQL' "open testcur;"
  8. say 'About to fetch 1'
  9. 'ExecSQL' "fetch next of testcur;"
  10. say 'fetch_buf = ' result
  11. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  12. say 'About to fetch 2'
  13. 'ExecSQL' "fetch next of testcur;"
  14. say 'fetch_buf = ' result
  15. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  16. say 'About to fetch 3'
  17. 'ExecSQL' "fetch next of testcur;"
  18. say 'fetch_buf = ' result
  19. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  20. say 'About to fetch 4'
  21. 'ExecSQL' "fetch next of testcur;"
  22. say 'fetch_buf = ' result
  23. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  24. say 'About to fetch 5'
  25. 'ExecSQL' "fetch next of testcur;"
  26. say 'fetch_buf = ' result
  27. /* say 'sqlca.sqlcode = ' sqlca.sqlcode */
  28. /* say 'sqlca.sqlerrmsg = ' sqlca.sqlerrmsg */
  29. 'ExecSQL' "close testcur;"
  30. 'ExecSQL' "close table salesreps;"
  31.  
  32.